﻿''' <summary>
''' 离散距离
''' </summary>
''' <remarks></remarks>
<Serializable()> Public Class DiscrDistance

    ''' <summary>
    ''' 海拔高度
    ''' </summary>
    ''' <remarks></remarks>
    Private m_Terrainhigh As Double = 30 '海拔高度
    ''' <summary>
    ''' 源点距离
    ''' </summary>
    ''' <remarks></remarks>
    Private m_Dissource As Double = 20 '源点距离

    ''' <summary>
    ''' 海拔高度
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property Terrainhigh() As Double
        Get
            Return m_Terrainhigh
        End Get
        Set(ByVal value As Double)
            m_Terrainhigh = value
        End Set
    End Property

    ''' <summary>
    ''' 源点距离
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property Dissource() As Double
        Get
            Return m_Dissource
        End Get
        Set(ByVal value As Double)
            m_Dissource = value
        End Set
    End Property
End Class
